home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / +system+ / tools / expert / verscheck / verscheckinstallscript < prev   
Text File  |  1999-11-30  |  28KB  |  994 lines
  1. ; $VER: VersCheckInstallScript V 2.1 (20.11.1999) multi language version
  2. ; Installer script to install/update VersCheck
  3. ; written by Michaela Prüß
  4. ; Note(s):
  5. ; - This script includes a special feature for use by InstallerNG
  6. ; - Last settings will stored and reloaded at next installation
  7. ; - Testet with Installer V44 (OS3.5) and InstallerNG 1.4
  8. ; ----------------------------------------------------------------------------
  9. ; languages (the number is the used language number inside this script)
  10. ; ----------------------------------------------------------------------------
  11. ;  #  translation exists for install  catalog  guide  goodies
  12. ;
  13. ;  0  english -default-        YES      YES     YES     YES
  14. ;  1  german                   YES      YES     YES     YES
  15. ;  2  français                 YES      YES     YES     YES
  16. ;  3  polski                   YES      YES     YES
  17. ;  4  norsk                             YES
  18. ;  5  svenska                           YES
  19. ;  6  magyar                            YES
  20. ;  7  czech                             YES
  21. ;
  22. ; ----------------------------------------------------------------------------
  23. ; init var's and set text vars (english) as default, other languages later
  24. ; ----------------------------------------------------------------------------
  25.  
  26. (complete 0)
  27. (user 0)
  28. (set @app-name "VersCheck")
  29. (set #default_language 0)
  30.  
  31. ;== output and help ENGLISH ==================================================
  32.  
  33. (set @abort-button "Abort")
  34.  
  35. (set #ask_true "Yes")
  36. (set #ask_false "No")
  37.  
  38. (set #err_oldkick "Need KickStart 2.0 or higher")
  39.  
  40. (set #mes_copyfile "Copy file...")
  41.  
  42. (set #mes_copyinfo "Copy icon...")
  43.  
  44. (set #txt_ask_prgcpu
  45.   (cat "\nInstall VersCheck on harddisk."
  46.        "\n\nPlease choose your CPU type:"
  47. ))
  48.  
  49. (set #hlp_ask_prgcpu
  50.   (cat "\nVersCheck will be installed in a later choosen"
  51.        "\ndrawer."
  52.        "\nFirst set the cpu-version that you want to be"
  53.        "\ninstalled!"
  54.        "\n\nMichaela Prüß, 21.09.1999\n"
  55. ))
  56.  
  57. (set #txt_ask_libcpu
  58.   (cat "\nInstall gateway.library on harddisk."
  59.        "\n\nPlease choose your CPU type:"
  60. ))
  61.  
  62. (set #txt_dir_docs
  63.   (cat "Path for the document's.\n"
  64.        "A drawer 'VersCheckGuide' will be added there!"
  65. ))
  66.  
  67. (set #hlp_dir_docs
  68.   (cat "Drawer for the documentation.\n"
  69.        "Only the guide for same language\n"
  70.        "as the installed catalog file\n"
  71.        "will be installed!"
  72. ))
  73.  
  74. (set #txt_ask_scripts
  75.   (cat "Install CheckGuide comparelists?"
  76.        "\nA drawer 'scripts' will be added there!\n"
  77. ))
  78.  
  79. (set #hlp_ask_scripts
  80.   (cat "\nDo you want to install the comparelists from"
  81.        "\nthe CheckGuides?\n"
  82.        "\nThe drawer will be added in same location as"
  83.        "\nthe VersCheck program."
  84. ))
  85.  
  86. (set #txt_ask_nversbef "Install a patched version command?")
  87.  
  88. (set #hlp_ask_nversbef "See Goodies/ReadMe_version for info's!")
  89.  
  90. (set #txt_ask_env "Install environment?")
  91.  
  92. (set #hlp_ask_env
  93.   (cat "Install Env-Variables!"
  94.        "\nIf not, defaults will be used!\n"
  95. ))
  96.  
  97. (set #txt_ask_addon
  98.   (cat "Install the system compare script?"
  99.        "\nIncluding two RT-Requester-programs!\n"
  100. ))
  101.  
  102. (set #hlp_ask_addon
  103.   (cat "This will install:"
  104.        "\nScript: Check_your_system"
  105.        "\n  Icon: Check_your_system.info"
  106.        "\n  Tool: RTFileReq"
  107.        "\n  Tool: RTSimpleReq\n"
  108. ))
  109.  
  110. (set #choice_cpu-0 "68000")
  111. (set #choice_cpu-1 "68010")
  112. (set #choice_cpu-2 "68020 / 68881")
  113. (set #choice_cpu-3 "68030 / 68882")
  114. (set #choice_cpu-4 "68040 / FPU 040")
  115. (set #choice_cpu-5 "68060 / FPU 060")
  116. (set #choice_cpu-6 "PowerPC with PowerUp")
  117. (set #choice_cpu-7 "PowerPC with Warp-OS")
  118.  
  119. (set #txt_ask_lang
  120.   (cat "\nWitch Language do you want to install?"
  121.        "\nBuild in is english:"
  122. ))
  123.  
  124. (set #hlp_ask_lang
  125.   (cat "\nChoose the language do you want for install!"
  126.        "\nRead the Guide carefully!\n"
  127. ))
  128.  
  129. (set #choice_lang-0 "English (build in)")
  130. (set #choice_lang-1 "German")
  131. (set #choice_lang-2 "France")
  132. (set #choice_lang-3 "Polski")
  133. (set #choice_lang-4 "Norsk   (english doc's)")
  134. (set #choice_lang-5 "Svenska (english doc's)")
  135. (set #choice_lang-6 "Magyar  (english doc's)")
  136. (set #choice_lang-7 "Czech   (english doc's)")
  137.  
  138. (set #txt_dir_prog
  139.   (cat "Select path for the programfile"
  140.        "\nNo drawer will be added!"
  141. ))
  142.  
  143. (set #hlp_dir_prog
  144.   (cat "Choose the location for installing"
  145.        "\nVersCheck."
  146. ))
  147.  
  148. (set #txt_finish
  149.   (cat "\nEnd of installation!\n"
  150.        "\nVersCheck is complete installed and ready for"
  151.        "\nusage!\n"
  152. ))
  153.  
  154. (set #txt_welcome
  155.   (cat "\nWelcome to the installation of\nVersCheck!\n\n"
  156.        "\n\n(c) 1998, 1999 by Michaela Prüß"
  157.        "\n\nImportant: Please read the manuals!\n"
  158. ))
  159.  
  160. ;== Ausgaben und Hilfen DEUTSCH ==============================================
  161.  
  162. (if (= @language "deutsch")(
  163.  
  164.   (set @abort-button "Abbrechen")
  165.  
  166.   (set #default_language 1)
  167.  
  168.   (set #ask_true  "Ja")
  169.   (set #ask_false "Nein")
  170.  
  171.   (set #err_oldkick "Mindestens KickStart 2.0 benötigt")
  172.  
  173.   (set #mes_copyfile "Kopiere Datei...")
  174.  
  175.   (set #mes_copyinfo "Kopiere Icon...")
  176.  
  177.   (set #txt_ask_prgcpu
  178.     (cat "\nInstallation von VersCheck auf Festplatte."
  179.          "\n\nBitte CPU-Version wählen:"
  180.   ))
  181.  
  182.   (set #hlp_ask_prgcpu
  183.     (cat "\nVersCheck installiert sich in ein noch zu wählendes"
  184.          "\nVerzeichnis."
  185.          "\nJetzt muß ausgewählt werden, welche CPU unterstützt"
  186.          "\nwerden soll!"
  187.          "\n\nMichaela Prüß, 21.09.1999\n"
  188.   ))
  189.  
  190.   (set #txt_ask_libcpu
  191.     (cat "\nInstallation der gateway.library auf Festplatte."
  192.          "\n\nBitte CPU-Version wählen:"
  193.   ))
  194.  
  195.   (set #txt_dir_docs
  196.     (cat "Wohin soll die Dokumentation\n"
  197.          "kopiert werden? Ein Verzeichnis\n"
  198.          "'VersCheckGuide' wird ggf. angelegt!"
  199.   ))
  200.  
  201.   (set #hlp_dir_docs
  202.     (cat "Verzeichnis für die Dokumentation.\n"
  203.          "Abhängig vom der installierten Sprache\n"
  204.          "wird die passende Dokumentation dazu\n"
  205.          "installiert!"
  206.   ))
  207.  
  208.   (set #txt_ask_scripts
  209.     (cat "CheckGuide-Vergleichslisten installieren?"
  210.          "\nEin Verzeichnis 'scripts' wird ggf. erstellt!\n"
  211.   ))
  212.  
  213.   (set #hlp_ask_scripts
  214.     (cat "\nSollen die Vergleichslisten der CheckGuides"
  215.          "\ninstalliert werden?\n"
  216.          "\nDas Verzeichnis wird dort als Unterverzeichnis"
  217.          "\neingerichtet wo das Programm liegt"
  218.   ))
  219.  
  220.   (set #txt_ask_nversbef
  221.     (cat "Soll ein gepatchter Version-Befehl installiert"
  222.          "\nwerden?\n"
  223.   ))
  224.  
  225.   (set #hlp_ask_nversbef "Bitte Goodies/ReadMe_version lesen!")
  226.  
  227.   (set #txt_ask_env "Environment installieren?")
  228.  
  229.   (set #hlp_ask_env
  230.     (cat "Installiert Env-Variablen!"
  231.          "\nFall nicht werden Standards benutzt!\n"
  232.   ))
  233.  
  234.   (set #txt_ask_addon
  235.     (cat "Soll das System-Vergleichsscript installiert werden?"
  236.          "\nWird zusammen mit zwei RT-Requester-Programmen"
  237.          "\ninstalliert.\n"
  238.   ))
  239.  
  240.   (set #hlp_ask_addon
  241.     (cat "Installiert werden:"
  242.          "\nScript: Check_your_system"
  243.          "\n  Icon: Check_your_system.info"
  244.          "\n  Tool: RTFileReq"
  245.          "\n  Tool: RTSimpleReq\n"
  246.   ))
  247.  
  248.   (set #choice_cpu-0 "68000")
  249.   (set #choice_cpu-1 "68010")
  250.   (set #choice_cpu-2 "68020 / 68881")
  251.   (set #choice_cpu-3 "68030 / 68882")
  252.   (set #choice_cpu-4 "68040 / FPU 040")
  253.   (set #choice_cpu-5 "68060 / FPU 060")
  254.   (set #choice_cpu-6 "PowerPC unter PowerUp")
  255.   (set #choice_cpu-7 "PowerPC unter Warp-OS")
  256.  
  257.   (set #txt_ask_lang
  258.     (cat "\nWelche Sprache soll installiert werden?"
  259.          "\nEnglisch ist eingebaut:"
  260.   ))
  261.  
  262.   (set #hlp_ask_lang
  263.     (cat "\nAuswahl der Sprache die installiert werden soll"
  264.          "\nBitte Guide beachten!\n"
  265.   ))
  266.  
  267.   (set #choice_lang-0 "Englisch    (eingebaut)")
  268.   (set #choice_lang-1 "Deutsch")
  269.   (set #choice_lang-2 "Französisch")
  270.   (set #choice_lang-3 "Polnisch")
  271.   (set #choice_lang-4 "Norwegisch  (englische Doku)")
  272.   (set #choice_lang-5 "Schwedisch  (englische Doku)")
  273.   (set #choice_lang-6 "Ungarisch   (englische Doku)")
  274.   (set #choice_lang-7 "Tschechisch (englische Doku)")
  275.  
  276.   (set #txt_dir_prog
  277.     (cat "Wohin soll das Programm installiert werden?"
  278.          "\nEs wird KEIN Verzeichnis angelegt!"
  279.   ))
  280.  
  281.   (set #hlp_dir_prog
  282.     (cat "Bitte auswählen, wohin VersCheck installiert"
  283.          "\nwerden soll."
  284.   ))
  285.  
  286.   (set #txt_finish
  287.     (cat "\nInstallation beendet!\n"
  288.          "\nVersCheck ist jetzt vollständig installiert und"
  289.          "\nkann benutzt werden!\n"
  290.   ))
  291.  
  292.   (set #txt_welcome
  293.     (cat "\nWillkommen zur Installation von\nVersCheck!\n\n"
  294.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  295.          "\n\nBitte unbedingt die Anleitungen lesen!\n"
  296. ))))
  297.  
  298. ;== output and help FRENCH ===================================================
  299.  
  300. (if (= @language "français")(
  301.  
  302.   (set #default_language 2)
  303.  
  304.   (set @abort-button "Interrompre")
  305.  
  306.   (set #ask_true "Oui")
  307.   (set #ask_false "Non")
  308.  
  309.   (set #err_oldkick "Nécessite le KickStart 2.0 ou supérieur")
  310.  
  311.   (set #mes_copyfile "Copie les fichiers...")
  312.  
  313.   (set #mes_copyinfo "Copie les icônes...")
  314.  
  315.   (set #txt_ask_prgcpu
  316.     (cat "\nInstalle « VersCheck » sur votre disque dur."
  317.            "\n\nChoisissez le type de CPU :"
  318.   ))
  319.  
  320.   (set #hlp_ask_prgcpu
  321.     (cat "\nVersCheck sera installé dans un répertoire"
  322.          "\nqui sera choisi plus tard."
  323.          "\nSélectionnez d'abord la version CPU"
  324.          "\nque vous voulez installer !"
  325.          "\n\nMichaela Prüß, 21.09.1999\n"
  326.   ))
  327.  
  328.   (set #txt_ask_libcpu
  329.     (cat "\nInstalle gateway.library sur votre disque dur."
  330.          "\n\nChoisissez le type de CPU :"
  331.   ))
  332.  
  333.   (set #txt_dir_docs
  334.     (cat "Chemin d'accès à la documentation.\n"
  335.          "Un répertoire « VersCheckGuide » sera créé ici !"
  336.   ))
  337.  
  338.   (set #hlp_dir_docs
  339.     (cat "Répertoire pour la documentation.\n"
  340.          "Seul le guide du même langage\n"
  341.          "que le catalogue choisi sera installé !"
  342.   ))
  343.  
  344.   (set #txt_ask_scripts
  345.     (cat "Installer CheckGuide et sa « comparelist » ?"
  346.          "\nUn répertoire « scripts » sera ajouté ici !\n"
  347.   ))
  348.  
  349.   (set #hlp_ask_scripts
  350.     (cat "\nVoulez-vous installer la liste de comparaison"
  351.          "\nà partir de CheckGuides ?\n"
  352.          "\nLe répertoire sera créé au même endroit que"
  353.          "\nle programme VersCheck."
  354.   ))
  355.  
  356.   (set #txt_ask_nversbef "Installer la version « patchée » de la commande version ?")
  357.  
  358.   (set #hlp_ask_nversbef "Voir Goodies/ReadMe_version pour plus d'infos !")
  359.  
  360.   (set #txt_ask_env "Installer l'environment ?")
  361.  
  362.   (set #hlp_ask_env
  363.     (cat "Installe « Env-Variables » !"
  364.          "\nSi non, les options par défaut seront utilisées !\n"
  365.   ))
  366.  
  367.   (set #txt_ask_addon
  368.     (cat "Installer le script de comparaison du système ?"
  369.          "\nCeci inclus deux programmes « RT-Requester » !\n"
  370.   ))
  371.  
  372.   (set #hlp_ask_addon
  373.     (cat "Ceci installera :\n"
  374.          "\nScript : Check_your_system"
  375.          "\n  Icon : Check_your_system.info"
  376.          "\n  Tool : RTFileReq"
  377.          "\n  Tool : RTSimpleReq\n"
  378.   ))
  379.  
  380.   (set #choice_cpu-0 "68000")
  381.   (set #choice_cpu-1 "68010")
  382.   (set #choice_cpu-2 "68020 / 68881")
  383.   (set #choice_cpu-3 "68030 / 68882")
  384.   (set #choice_cpu-4 "68040 / FPU 040")
  385.   (set #choice_cpu-5 "68060 / FPU 060")
  386.   (set #choice_cpu-6 "PowerPC avec PowerUp")
  387.   (set #choice_cpu-7 "PowerPC avec Warp-OS")
  388.  
  389.   (set #txt_ask_lang
  390.     (cat "\nQuel langage souhaitez-vous installer ?"
  391.          "\n(L'anglais est intégré au programme) :"
  392.   ))
  393.  
  394.   (set #hlp_ask_lang
  395.     (cat "\nChoisissez le langage que vous souhaitez installer !"
  396.          "\nLire le guide avec attention !\n"
  397.   ))
  398.  
  399.   (set #choice_lang-0 "Anglais   (en interne)")
  400.   (set #choice_lang-1 "Allemand")
  401.   (set #choice_lang-2 "Français")
  402.   (set #choice_lang-3 "polonais")
  403.   (set #choice_lang-4 "Norvégien (doc en anglais)")
  404.   (set #choice_lang-5 "Suédois   (doc en anglais)")
  405.   (set #choice_lang-6 "Malgache  (doc en anglais)")
  406.   (set #choice_lang-7 "Tschèque  (doc en anglais)")
  407.  
  408.   (set #txt_dir_prog
  409.     (cat "Choisissez le chemin d'accès au programme."
  410.          "\nAucun répertoire ne sera créé !"
  411.   ))
  412.  
  413.   (set #hlp_dir_prog
  414.     (cat "Choisissez le répertoire où installer"
  415.          "\n« VersCheck »."
  416.   ))
  417.  
  418.   (set #txt_finish
  419.     (cat "\nFin de la procédure d'installation !\n"
  420.          "\n« VersCheck » est entièrement installé"
  421.          "\net prêt à être utilisé !\n"
  422.   ))
  423.  
  424.   (set #txt_welcome
  425.     (cat "\nBienvenue dans l'utilitaire d'installation de\n« VersCheck » !\n\n"
  426.          "\n\n(c) 1998, 1999 par Michaela Prüß"
  427.          "\n\nImportant : Veuillez lire la documentation !\n"
  428. ))))
  429.  
  430. ;== output and help POLSKI ===================================================
  431.  
  432. (if (= @language "polski")(
  433.  
  434.   (set @abort-button "Przerwij")
  435.  
  436.   (set #default_language 3)
  437.  
  438.   (set #ask_true "Tak")
  439.   (set #ask_false "Nie")
  440.  
  441.   (set #err_oldkick "Potrzebujë KickStartu w wersji minimum 2.0.")
  442.  
  443.   (set #mes_copyfile "Kopiowanie pliku...")
  444.  
  445.   (set #mes_copyinfo "Kopiowanie ikonki...")
  446.  
  447.   (set #txt_ask_prgcpu
  448.     (cat "\nInstalacja programu VersCheck na dysku twardym."
  449.          "\n\nWybierz model procesora:"
  450.   ))
  451.  
  452.   (set #hlp_ask_prgcpu
  453.     (cat "\nVersCheck zostanie zainstalowany we wskazanym"
  454.          "\npóúniej katalogu."
  455.          "\nNajpierw wybierz model procesora, tak aby zainstalowana"
  456.          "\nzostaîa wîaôciwa wersja programu!"
  457.          "\n\nMichaela Prüß, 21.09.1999\n"
  458.   ))
  459.  
  460.   (set #txt_ask_libcpu
  461.     (cat "\nInstalacja programu gateway.library na dysku twardym."
  462.          "\n\nWybierz model procesora:"
  463.   ))
  464.  
  465.   (set #txt_dir_docs
  466.     (cat "Katalog dla dokumentacji.\n"
  467.          "Zostanie tam utworzony katalog 'VersCheckGuide'!"
  468.   ))
  469.  
  470.   (set #hlp_dir_docs
  471.     (cat "Katalog dla dokumentacji.\n"
  472.          "Zainstalowana zostanie tylko\n"
  473.          "dokumentacja w tym samym jëzyku\n"
  474.          "co i katalog lokalizacyjny!"
  475.   ))
  476.  
  477.   (set #txt_ask_scripts
  478.     (cat "Czy mam zainstalowaê listë porównaï CheckGuide?"
  479.          "\nZostanie tam utworzony katalog 'scripts'!\n"
  480.   ))
  481.  
  482.   (set #hlp_ask_scripts
  483.     (cat "\nCzy chcesz, aby dodany zostaî katalog z listâ"
  484.          "\nplików wykorzystywanâ do porównaï?\n"
  485.          "\nKatalog ten znajdzie sië w tym samym"
  486.          "\nmiejscu na twardym dysku co i program."
  487.   ))
  488.  
  489.   (set #txt_ask_nversbef "Czy mam zainstalowaê poprawionâ komendë version?")
  490.  
  491.   (set #hlp_ask_nversbef "Przeczytaj Goodies/ReadMe_version!")
  492.  
  493.   (set #txt_ask_env "Czy mam zainstalowaê konfiguracjë ôrodowiska?")
  494.  
  495.   (set #hlp_ask_env
  496.     (cat "Instalacja zmiennych ôrodowiskowych!"
  497.          "\nW przypadku zaprzeczenia program wykorzysta"
  498.          "\nustawienia standardowe!\n"
  499.   ))
  500.  
  501.   (set #txt_ask_addon
  502.     (cat "Czy mam zainstalowaê skrypty sprawdzajâce system?"
  503.          "\nDotyczy to równieû dwu programów RT!\n"
  504.   ))
  505.  
  506.   (set #hlp_ask_addon
  507.     (cat "Zainstalowane zostanâ:"
  508.          "\n Skrypt: Check_your_system"
  509.          "\n Ikonka: Check_your_system.info"
  510.          "\nProgram: RTFileReq"
  511.          "\nProgram: RTSimpleReq\n"
  512.   ))
  513.  
  514.   (set #choice_cpu-0 "68000")
  515.   (set #choice_cpu-1 "68010")
  516.   (set #choice_cpu-2 "68020 / 68881")
  517.   (set #choice_cpu-3 "68030 / 68882")
  518.   (set #choice_cpu-4 "68040 / FPU 040")
  519.   (set #choice_cpu-5 "68060 / FPU 060")
  520.   (set #choice_cpu-6 "PowerPC z PowerUp")
  521.   (set #choice_cpu-7 "PowerPC z Warp-OS")
  522.  
  523.   (set #txt_ask_lang
  524.     (cat "\nJaki jëzyk chcesz zainstalowaê?"
  525.          "\nAngielski jest wbudowany:"
  526.   ))
  527.  
  528.   (set #hlp_ask_lang
  529.     (cat "\nWybierz jëzyk, który chcesz zainstalowaê!"
  530.          "\nPrzeczytaj dokîadnie dokumentacjë!\n"
  531.   ))
  532.  
  533.   (set #choice_lang-0 "Angielski (wbudowany)")
  534.   (set #choice_lang-1 "Niemiecki")
  535.   (set #choice_lang-2 "France")
  536.   (set #choice_lang-3 "Polski")
  537.   (set #choice_lang-4 "Norweski  (angielska dokumentacja)")
  538.   (set #choice_lang-5 "Szwedzki  (angielska dokumentacja)")
  539.   (set #choice_lang-6 "Wëgierski (angielska dokumentacja)")
  540.   (set #choice_lang-7 "Czech     (angielska dokumentacja)")
  541.  
  542.   (set #txt_dir_prog
  543.     (cat "Wybierz ôcieûkë dostëpu dla programu."
  544.          "\nNie zostanie tam utworzony katalog!"
  545.   ))
  546.  
  547.   (set #hlp_dir_prog
  548.     (cat "Wskaû miejsce na twardym dysku, w którym"
  549.          "\nzostanie zainstalowany VersCheck."
  550.   ))
  551.  
  552.   (set #txt_finish
  553.     (cat "\nKoniec instalacji!\n"
  554.          "\nVersCheck jest juû gotowy"
  555.          "\ndo uruchomienia!\n"
  556.   ))
  557.  
  558.   (set #txt_welcome
  559.     (cat "\nWitam! Skrypt ten instaluje program\nVersCheck!\n\n"
  560.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  561.          "\n\nWaûne: przeczytaj dokumentacjë!\n"
  562. ))))
  563.  
  564. ;-----------------------------------------------------------------------------
  565. ; procedure: AskForLib (ask for second cpu type on ppc systems)
  566. ;-----------------------------------------------------------------------------
  567.  
  568. (procedure P_AskForLib
  569.   (set #inst_cpu_libs
  570.     (askchoice
  571.       (default #cpu)
  572.       (prompt  #txt_ask_libcpu)
  573.       (help    #hlp_ask_prgcpu)
  574.       (choices #choice_cpu-0
  575.                #choice_cpu-1
  576.                #choice_cpu-2
  577.                #choice_cpu-3
  578.                #choice_cpu-4
  579.                #choice_cpu-5
  580. ))))
  581.  
  582. ;=============================================================================
  583. ; HERE THE WORK BEGIN                       *** Check system, set defaults ***
  584. ;=============================================================================
  585. (user 2)
  586.  
  587. (onerror ((if (> @ioerr 0)(message (cat "\n INSTALLER ERROR: " @ioerr "\n\n")))))
  588. (complete 1)
  589.  
  590. (if (< (/ (getversion) 65536) 37)((abort #err_oldkick)))
  591. (complete 2)
  592.  
  593. (message #txt_welcome)
  594. (complete 5)
  595.  
  596. (set #cpu 0)
  597. (if (patmatch "68010" (database "cpu"))((set #cpu 1)))
  598. (if (patmatch "68020" (database "cpu"))((set #cpu 2)))
  599. (if (patmatch "68030" (database "cpu"))((set #cpu 3)))
  600. (if (patmatch "68040" (database "cpu"))((set #cpu 4)))
  601. (if (patmatch "68060" (database "cpu"))((set #cpu 5)))
  602.  
  603. (set #testlib (tackon "libs:" "PowerPC.library"))
  604. (if (= (exists #testlib) 0)(
  605.   (set #testlib (tackon "libs:" "ppc.library"))
  606.   (if (= (exists #testlib) 0)(
  607.     (set #prgcpu #cpu)
  608.   )(
  609.     (set #prgcpu 6)))
  610. )(
  611.   (set #prgcpu 7)
  612. ))
  613. (complete 7)
  614.  
  615. (user 0)
  616.  
  617. (set #stortest (tackon "env:" "VCheck/VersDir"))
  618. (if (= (exists #stortest) 0)(
  619.   (set #stored_dir_prog "c:")
  620. )(
  621.   (set #stored_dir_prog (getenv "VCheck/VersDir"))
  622. ))
  623. (set #stortest (tackon "env:" "VCheck/VersDoc"))
  624. (if (= (exists #stortest) 0)(
  625.   (set #stored_dir_docs "help:")
  626. )(
  627.   (set #stored_dir_docs (getenv "VCheck/VersDoc"))
  628. ))
  629. (set #stortest (tackon "env:" "VCheck/VersIM1"))
  630. (if (= (exists #stortest) 0)(
  631.   (set #stored_set_scripts 0)
  632. )(
  633.   (set #stored_set_scripts (getenv "VCheck/VersIM1"))
  634. ))
  635. (set #stortest (tackon "env:" "VCheck/VersIM2"))
  636. (if (= (exists #stortest) 0)(
  637.   (set #stored_set_env 0)
  638. )(
  639.   (set #stored_set_env (getenv "VCheck/VersIM2"))
  640. ))
  641. (set #stortest (tackon "env:" "VCheck/VersIM3"))
  642. (if (= (exists #stortest) 0)(
  643.   (set #stored_set_nversbef 0)
  644. )(
  645.   (set #stored_set_nversbef (getenv "VCheck/VersIM3"))
  646. ))
  647. (set #stortest (tackon "env:" "VCheck/VersIM4"))
  648. (if (= (exists #stortest) 0)(
  649.   (set #stored_set_addon 0)
  650. )(
  651.   (set #stored_set_addon (getenv "VCheck/VersIM4"))
  652. ))
  653.  
  654. ;=============================================================================
  655. ; HERE THE INPUT BEGIN / USER ACTION                *** All need questions ***
  656. ;=============================================================================
  657.  
  658. (user 2)
  659. (complete 10)
  660. (set #inst_language
  661.   (askchoice
  662.     (default #default_language)
  663.     (prompt  #txt_ask_lang)
  664.     (help    #hlp_ask_lang)
  665.     (choices #choice_lang-0
  666.              #choice_lang-1
  667.              #choice_lang-2
  668.              #choice_lang-3
  669.              #choice_lang-4
  670.              #choice_lang-5
  671.              #choice_lang-6
  672.              #choice_lang-7
  673. )))
  674. (set #inst_cpu_prog
  675.   (askchoice
  676.     (default #prgcpu)
  677.     (prompt  #txt_ask_prgcpu)
  678.     (help    #hlp_ask_prgcpu)
  679.     (choices #choice_cpu-0
  680.              #choice_cpu-1
  681.              #choice_cpu-2
  682.              #choice_cpu-3
  683.              #choice_cpu-4
  684.              #choice_cpu-5
  685.              #choice_cpu-6
  686.              #choice_cpu-7
  687. )))
  688. (set #inst_cpu_libs #inst_cpu_prog)
  689. (if (= #inst_cpu_prog 0)((set #progname (cat "VersCheck"))))
  690. (if (= #inst_cpu_prog 1)((set #progname (cat "VersCheck.010"))))
  691. (if (= #inst_cpu_prog 2)((set #progname (cat "VersCheck.020"))))
  692. (if (= #inst_cpu_prog 3)((set #progname (cat "VersCheck.030"))))
  693. (if (= #inst_cpu_prog 4)((set #progname (cat "VersCheck.040"))))
  694. (if (= #inst_cpu_prog 5)((set #progname (cat "VersCheck.060"))))
  695. (if (= #inst_cpu_prog 6)(
  696.   (set #progname (cat "VersCheck.elf"))
  697.   (P_AskForLib)
  698. ))
  699. (if (= #inst_cpu_prog 7)(
  700.   (set #progname (cat "VersCheck.wos"))
  701.   (P_AskForLib)
  702. ))
  703. (if (= @installer-ng-version 0)(
  704.   (set #inst_dir_prog
  705.     (askdir
  706.       (prompt  #txt_dir_prog)
  707.       (help    #hlp_dir_prog)
  708.       (default #stored_dir_prog)
  709.       (disk)
  710.   ))
  711.   (set #inst_dir_docs
  712.     (askdir
  713.       (prompt  #txt_dir_docs)
  714.       (help    #hlp_dir_docs)
  715.       (default #stored_dir_docs)
  716.       (disk)
  717.   ))
  718. )(
  719.   (set #inst_dir_prog
  720.     (askdir
  721.       (prompt  (cat (cat #txt_dir_prog "\n\ndefault: »")(cat #stored_dir_prog "«")))
  722.       (help    #hlp_dir_prog)
  723.       (default #stored_dir_prog)
  724.       (disk)
  725.   ))
  726.   (set #inst_dir_docs
  727.     (askdir
  728.       (prompt  (cat (cat #txt_dir_docs "\n\ndefault: »")(cat #stored_dir_docs "«")))
  729.       (help    #hlp_dir_docs)
  730.       (default #stored_dir_docs)
  731.       (disk)
  732. ))))
  733. (set #inst_choice_scripts
  734.   (askchoice
  735.     (default #stored_choice_scripts)
  736.     (prompt  #txt_ask_scripts)
  737.     (help    #hlp_ask_scripts)
  738.     (choices #ask_true
  739.              #ask_false
  740. )))
  741. (set #inst_choice_env
  742.   (askchoice
  743.     (default #stored_choice_env)
  744.     (prompt  #txt_ask_env)
  745.     (help    #hlp_ask_env)
  746.     (choices #ask_true
  747.              #ask_false
  748. )))
  749. (set #inst_choice_nversbef
  750.   (askchoice
  751.     (default #stored_choice_nversbef)
  752.     (prompt  #txt_ask_nversbef)
  753.     (help    #hlp_ask_nversbef)
  754.     (choices #ask_true
  755.              #ask_false
  756. )))
  757. (set #inst_choice_addon
  758.   (askchoice
  759.     (default #stored_choice_addon)
  760.     (prompt  #txt_ask_addon)
  761.     (help    #hlp_ask_addon)
  762.     (choices #ask_true
  763.              #ask_false
  764. )))
  765.  
  766. ;=============================================================================
  767. ; STORE SETTINGS FOR NEXT TIME                            *** store config ***
  768. ;=============================================================================
  769.  
  770. (run (cat "SetEnv VCheck/VersDir " #inst_dir_prog))
  771. (run (cat "SetEnv VCheck/VersDoc " #inst_dir_docs))
  772. (run (cat "SetEnv VCheck/VersIM1 " #inst_choice_scripts))
  773. (run (cat "SetEnv VCheck/VersIM2 " #inst_choice_env))
  774. (run (cat "SetEnv VCheck/VersIM3 " #inst_choice_nversbef))
  775. (run (cat "SetEnv VCheck/VersIM4 " #inst_choice_addon))
  776. (run "Copy all ENV:VCheck ENVARC:VCheck")
  777.  
  778. ;=============================================================================
  779. ; SET NAMES & DIRS FOR COPY -for CPU and LANGUAGE-       *** last settings ***
  780. ;=============================================================================
  781.  
  782. (user 1)
  783. (complete 20)
  784.  
  785. (set #catalogdir "catalogs/english")
  786. (set #aguidefile "VersCheck_english.Guide")
  787. (set #scriptname "Check_Your_System")
  788. (set #afdfile    "AFD-COPYRIGHT")
  789.  
  790. (if (= #inst_language 1)(
  791.   (set #catalogdir "catalogs/deutsch")
  792.   (set #aguidefile "VersCheck_deutsch.Guide")
  793.   (set #scriptname "Check_Your_System_deutsch")
  794.   (set #afdfile    "AFD-COPYRIGHT_deutsch")
  795. ))
  796. (if (= #inst_language 2)(
  797.   (set #catalogdir "catalogs/français")
  798.   (set #aguidefile "VersCheck_français.Guide")
  799.   (set #scriptname "Check_Your_System_france")
  800.   (set #afdfile    "AFD-COPYRIGHT_français")
  801. ))
  802. (if (= #inst_language 3)(
  803.   (set #catalogdir "catalogs/polski")
  804.   (set #aguidefile "VersCheck_polski.Guide")
  805.   (set #afdfile    "AFD-COPYRIGHT_polski")
  806. ))
  807. (if (= #inst_language 4)(
  808.   (set #catalogdir "catalogs/norsk")
  809. ))
  810. (if (= #inst_language 5)(
  811.   (set #catalogdir "catalogs/svenska")
  812. ))
  813. (if (= #inst_language 6)(
  814.   (set #catalogdir "catalogs/magyar")
  815. ))
  816. (if (= #inst_language 7)(
  817.   (set #catalogdir "catalogs/czech")
  818. ))
  819. (set #libsname (tackon "Libs" "gateway.library.000"))
  820. (if (= #inst_cpu_libs 1)((set #libsname (tackon "Libs" "gateway.library.010"))))
  821. (if (= #inst_cpu_libs 2)((set #libsname (tackon "Libs" "gateway.library.020"))))
  822. (if (= #inst_cpu_libs 3)((set #libsname (tackon "Libs" "gateway.library.030"))))
  823. (if (= #inst_cpu_libs 4)((set #libsname (tackon "Libs" "gateway.library.040"))))
  824. (if (= #inst_cpu_libs 5)((set #libsname (tackon "Libs" "gateway.library.060"))))
  825.  
  826. ;=============================================================================
  827. ; START ALL NEEDED COPY                                 *** Now installing ***
  828. ;=============================================================================
  829.  
  830. (complete 30)
  831. (copylib
  832.   (prompt  #mes_copyfile)
  833.   (dest    "Libs:")
  834.   (source  #libsname)
  835.   (newname "gateway.library")
  836. )
  837. (set #n 0)
  838. (while
  839.   (set #workfile (select #n
  840.     "680x0.library"
  841.     "mmu.library"
  842.     "reqtools.library"
  843.     ""
  844.   ))
  845.   (copylib
  846.     (prompt  #mes_copyfile)
  847.     (dest    "Libs:")
  848.     (source  (tackon "Libs" #workfile))
  849.   )
  850.   (set #n (+ #n 1))
  851. )
  852. (complete 40)
  853. (copyfiles
  854.   (prompt  #mes_copyfile)
  855.   (dest    #inst_dir_prog)
  856.   (source  #progname)
  857.   (newname "VersCheck")
  858.   (infos)
  859. )
  860. (copyfiles
  861.   (prompt #mes_copyinfo)
  862.   (dest   #inst_dir_prog)
  863.   (source "VersCheck.info")
  864. )
  865. (copyfiles 
  866.   (prompt #mes_copyfile)
  867.   (dest   (tackon "Locale:" #catalogdir))
  868.   (source (tackon "locale" (tackon #catalogdir "VersCheck.catalog")))
  869. )
  870. (complete 50)
  871. (copyfiles
  872.   (prompt  #mes_copyfile)
  873.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  874.   (source  (tackon "Doku" #aguidefile))
  875.   (newname "VersCheck.Guide")
  876.   (infos)
  877. )
  878. (copyfiles
  879.   (prompt  #mes_copyfile)
  880.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  881.   (source  (tackon "Doku" (cat #aguidefile ".info")))
  882.   (newname "VersCheck.Guide.info")
  883.   (infos)
  884. )
  885. (complete 60)
  886. (copyfiles
  887.   (prompt  #mes_copyfile)
  888.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  889.   (source  (tackon "Doku" #afdfile))
  890.   (newname "AFD-COPYRIGHT")
  891.   (infos)
  892. )
  893. (copyfiles
  894.   (prompt  #mes_copyfile)
  895.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  896.   (source  (tackon "Doku" (cat #afdfile ".info")))
  897.   (newname "AFD-COPRIGHT.info")
  898.   (infos)
  899. )
  900. (complete 70)
  901. (set #n 0)
  902. (while
  903.   (set #workfile (select #n
  904.     "ReadMe.1st"
  905.     "Doku/ATO.readme"
  906.     "Doku/AUTHORS.readme"
  907.     "Doku/Handler.Guide"
  908.     "Doku/History"
  909.     "Doku/MUIClasses.Guide"
  910.     "Doku/VersCheck.readme"
  911.     ""
  912.   ))
  913.   (copyfiles
  914.     (prompt  #mes_copyfile)
  915.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  916.     (source  #workfile)
  917.   )
  918.   (copyfiles
  919.     (prompt  #mes_copyfile)
  920.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  921.     (source  (cat #workfile ".info"))
  922.   )
  923.   (set #n (+ #n 1))
  924. )
  925. (copyfiles 
  926.   (prompt  #mes_copyfile)
  927.   (dest    (tackon #inst_dir_docs "VersCheckGuide/CatSource"))
  928.   (source  "locale/CatSource")
  929.   (all)
  930. )
  931. (if (= #inst_choice_scripts 0)(
  932.   (copyfiles
  933.     (prompt  #mes_copyfile)
  934.     (dest    (tackon #inst_dir_prog "scripts"))
  935.     (source  "scripts")
  936.     (pattern "#?")
  937. )))
  938. (complete 90)
  939. (if (= #inst_choice_env 0)(
  940.   (copyfiles
  941.     (prompt  #mes_copyfile)
  942.     (dest   "ENVARC:VCheck")
  943.     (source "ENV-ARCHIVE/VCheck")
  944.     (all)
  945. )))
  946. (if (= #inst_choice_nversbef 0)(
  947.   (copyfiles
  948.     (prompt  #mes_copyfile)
  949.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  950.     (source  "goodies/ReadMe_version")
  951.   )
  952.   (copyfiles
  953.     (prompt  #mes_copyfile)
  954.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  955.     (source  "goodies/ReadMe_version.info")
  956.   )
  957.   (copylib
  958.     (prompt  #mes_copyfile)
  959.     (dest    #inst_dir_prog)
  960.     (source  "goodies/Version")
  961. )))
  962. (if (= #inst_choice_addon 0)(
  963.   (copyfiles
  964.     (prompt  #mes_copyfile)
  965.     (dest    #inst_dir_prog)
  966.     (source  "goodies/RTFileReq")
  967.   )
  968.   (copyfiles
  969.     (prompt  #mes_copyfile)
  970.     (dest    #inst_dir_prog)
  971.     (source "goodies/RTSimpleReq")
  972.   )
  973.   (copyfiles
  974.     (prompt  #mes_copyfile)
  975.     (dest    #inst_dir_prog)
  976.     (source  (tackon "goodies" #scriptname))
  977.     (newname "Check_Your_System")
  978.   )
  979.   (copyfiles
  980.     (prompt  #mes_copyfile)
  981.     (dest    #inst_dir_prog)
  982.     (source  (tackon "goodies" (cat #scriptname ".info")))
  983.     (newname "Check_Your_System.info")
  984. )))
  985.  
  986. ;=============================================================================
  987. ; SAY GOODBYE TO THE USER                                      *** the end ***
  988. ;=============================================================================
  989.  
  990. (complete 100)
  991. (message #txt_finish)
  992. (exit (quiet))
  993. (welcome)
  994.